home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #49 (Oct 89) / Driver Code / KillRoutine.a < prev    next >
Text File  |  1988-01-06  |  378b  |  26 lines
  1.                 TITLE            'Timeout for serial IO'
  2.                 BLANKS            ON
  3.                 CASE            ON
  4.                 String            Pascal
  5.  
  6.                 PRINT            OFF
  7.                 INCLUDE         'Traps.a'
  8.                 INCLUDE         'ToolEqu.a'
  9.                 INCLUDE         'QuickEqu.a'
  10.                 INCLUDE         'SysEqu.a'
  11.                 PRINT            ON
  12.  
  13.                 Main
  14.                 
  15. KillStore        DC.L            0
  16.                 
  17. KillRoutine:    
  18.                 LEA                    KillStore,A0
  19.                 MOVE.L                (A0),A0
  20. ;                _Debugger
  21.                 _KillIO
  22.                 RTS
  23.                 
  24.                 ENDP
  25.                 END
  26.